home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 47.7z
/
BS1 part 47
/
ImageMaster RT v1.50b (1994)(Black Belt Systems)(Disk 6 of 7)[HD].7z
/
ImageMaster RT v1.50b (1994)(Black Belt Systems)(Disk 6 of 7)[HD].adf
/
piarc.lzh.parta
/
NGon.rxwp
< prev
next >
Wrap
Text File
|
1994-03-17
|
2KB
|
71 lines
/* NGon.rxwp - rexx script to fill wipe buffer */
parse arg cframe mframe
/*
* open rexxsupport.library -- needed for some functions
*/
if ~show('L',"rexxsupport.library") then do
if addlib('rexxsupport.library',0,-30,0) then do
/* everything's ok */
end;
else do
say 'We Have A Library Problem, Unable To Load "rexxsupport.library"';
say 'Cannot operate NGon.rxwp without this library - sorry!';
exit 10;
end;
end;
/*
* This will automatically direct the script to the proper
* software, if it is running.
*/
prtnme = 'IP_Port'; /* assume Image Professional */
if show('P','IP_Port') = 0 then do
if show('P','IM_Port') = 0 then do
say "Can't find image processor's ARexx port!!!"; /* not running? */
say "This script requires IP, IM or IM F/c to run!";
exit(20);
end;
else do
prtnme = 'IM_Port'; /* That's the thing about assumptions... */
end; /* We make em, user's break em. */
end;
options;
address;
if mframe = 0 then do
call open(fhandle,'ram:IM_WIPE.tmp2','write'); /* open the file */
junk = writeln(fhandle, 1);
junk = writeln(fhandle, 1);
junk = writeln(fhandle, 1);
junk = writeln(fhandle, 1);
junk = writeln(fhandle, 1);
junk = writeln(fhandle, 1);
call close(fhandle); /* close the file */
address(prtnme);
options results;
'askprop '||'"Number of points in polygon" 3 3 20'
points = result;
call open(fhandle,'ram:IM_WIPE.ngon','write');
junk = writeln(fhandle, points);
call close(fhandle); /* close the file */
end;
else do
call open(fhandle,'ram:IM_WIPE.ngon','read');
points = readln(fhandle);
call close(fhandle); /* close the file */
fp = cframe / mframe;
fp = fp * 0.707;
address("IM_WIPER");
'NGON '||fp||','||fp||','||points
'close'
if cframe = mframe then do
address command 'delete ram:IM_WIPE.ngon'
end;
end;
exit 0;